home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / BOYAN52A.ZIP;1 / MAKEMAIL.BSC < prev    next >
Encoding:
Text File  |  1994-01-29  |  22.7 KB  |  466 lines
  1.  
  2. \\
  3. \\  Make mail script by Lee Breeden for PCBoard systems
  4. \\
  5. \\  This script is used to make a mail script for calling a pcboard and
  6. \\  downloading mail unattended, uplaoding or downloading files.
  7. \\
  8.  
  9. |logon
  10. \ko[245]
  11. \svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
  12. \svz[]\svy[]
  13. |Script
  14. \bl[start]
  15. \bl[more]
  16. \eb
  17.  
  18. |more
  19. \svv[]\SVS[]\sv0[]\sv1[]\sv2[]\sv3[]\sv4[]\sv5[]\sv6[]\sv7[]\sv8[]\sv9[]\svh[]\lvs[]
  20. \svz[]\svy[]
  21. \bl[continue]
  22. \bl[make]
  23. \bl[append4]
  24. \bl[editit]
  25. \eb
  26.  
  27.  
  28. |start
  29. \zs
  30. \dm8,1[                                                                     ]
  31. \dm8,2[  …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  32. \dm8,3[  ∫ Boyan 5.0 script generator. This will not work with 4.1 or 3.0 ∫ ]
  33. \dm8,4[  ∫      Welcome: This is a Boyan Script that will walk you        ∫ ]
  34. \dm8,5[  ∫    thru setting up a mail or regular script. The information   ∫ ]
  35. \dm8,6[  ∫    that you will be asked is used in the bbs system script.    ∫ ]
  36. \dm8,7[  ∫      There are some things that you must have handy before     ∫ ]
  37. \dm8,8[  ∫      going any further.                                        ∫ ]
  38. \dm8,9[  ∫                                                                ∫ ]
  39. \dm8,10[  ∫                   Mail door number                             ∫ ]
  40. \dm8,11[  ∫                   ProDoor number                               ∫ ]
  41. \dm8,12[  ∫                   Mail Packet name  *.qwk                      ∫ ]
  42. \dm8,13[  ∫                   Type of door that you are going to           ∫ ]
  43. \dm8,14[  ∫                       enter to get your mail.                  ∫ ]
  44. \dm8,15[  ∫                                                                ∫ ]
  45. \dm8,16[  ∫     There are some commands that will be set for you that      ∫ ]
  46. \dm8,17[  ∫     you can edit later.                                        ∫ ]
  47. \dm8,18[  ∫                                                                ∫ ]
  48. \dm8,19[  ∫     If you don't have all of the above handy then HIT ESC      ∫ ]
  49. \dm8,20[  ∫                         NOW!                                   ∫ ]
  50. \dm8,21[  ∫                                                                ∫ ]
  51. \dm8,22[  »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  52. \dm8,23[                                                                     ]
  53. \kv0[ Hit enter to continue ESC to escape> ]
  54. \zs
  55. \gb[name]
  56.  
  57. |name
  58. \MVZ[111]\MVY[112] \SV0[%VZ] \LV0[3]
  59. \II+   `,%V0[\SC[pcboard;name]\gb[name]]
  60. \ie+%vz, [\kv0[Enter your first name> `]]
  61. \ie+%vz, [\sv1[%V0 "`]\SM111[%V1]]
  62. \ie+%vy, [\kv0[Enter your last name> `]]
  63. \ie+%vz, [\SM112[%v0]]
  64. \ie-%vz, [\bl[dispname]]
  65. \ie+%pw, [\bl[password]]
  66. \dm8,23[ checking download directory for qwk file lists ]
  67.  
  68.  
  69. |password
  70. \dm6,10[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª
  71. \dm6,11[ ∫   Currently you don't have a         ∫
  72. \dm6,12[ ∫   default password defined. So lets  ∫
  73. \dm6,13[ ∫   set one now. You will have to      ∫
  74. \dm6,14[ ∫   select ""P"" from the screen .       ∫
  75. \dm6,15[ ∫  You can have a different one on     ∫
  76. \dm6,16[ ∫ every system in your phone directory.∫
  77. \dm6,17[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº
  78. \kvo[ Hit enter to continue]\SN[ Select "P" for password ]\cb[s]
  79. \zs
  80.  
  81. |dispname
  82. \MVZ[111]\SVX[%VZ]\ii+" `,%VX[\LVX[%IM] \MVY[112] \SVZ[%VX %Vy] \lvZ[30]
  83. \dm6,10[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª
  84. \dm6,11[ ∫  This is the way that your name      ∫
  85. \dm6,12[ ∫  well be used in these scripts.      ∫
  86. \dm6,13[ ∫  %VZ      ∫
  87. \dm6,14[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº
  88. \kv0[Hit enter to continue > `]
  89. \zs
  90.  
  91. |continue
  92. \zs
  93. \dm6,7[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  94. \dm6,8[ ∫          Enter the name for the       ∫ ]
  95. \dm6,9[ ∫      Script that you would like to    ∫ ]
  96. \dm6,10[ ∫       create. ie:  BBS name EdsHome   ∫ ]
  97. \dm6,11[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  98. {
  99. \kvs________[Script name > ]\SVT[%vs.bsc]\lvt[12]
  100. \FE+%S:%VS.bsc[\GB[bsc]]
  101. \bl[make]
  102.  
  103. |make
  104. \zs Creating script %S:%VS.bsc {
  105. \AF%S:%VS.bsc["\"\ This script automates Mail runs to PC-BOARD type Bulletin Boards.       ]
  106. \AF%S:%VS.bsc["\"\ You must set the following macros with BOYAN's configuration module:    ]
  107. \AF%S:%VS.bsc["\"\  "\! = Macro # 111 = Your first name                                     ]
  108. \AF%S:%VS.bsc["\"\  "\"@ = Macro # 112 = Your last name                                      ]
  109. \AF%S:%VS.bsc["\"\  "%PW = Is your defined password.                                      ]
  110. \AF%S:%VS.bsc["\"\  "\sv1 used for mail system report file *.rep.                           ]
  111. \AF%S:%VS.bsc["\"\  "\sv2 used for prodoor option number.                                   ]
  112. \AF%S:%VS.bsc["\"\  "\sv3 used for mail door option number.                                 ]
  113. \AF%S:%VS.bsc["\"\  "\sv4 used for mail packet system name *.qwk.                           ]
  114. \AF%S:%VS.bsc["\"\  "\sv5 used for up-file name or names.                                   ]
  115. \AF%S:%VS.bsc["\"\  "\sv6 used for file upload description.                                 ]
  116. \AF%S:%VS.bsc["\"\  "\sv7 used for file upload description, leave blank if not used         ]
  117. \AF%S:%VS.bsc["\"\  "\sv8 used for file upload description, leave blank if not used         ]
  118. \AF%S:%VS.bsc["\"\  "\sv9 used for file upload description, leave blank if not used         ]
  119. \AF%S:%VS.bsc["\"\  "\sv0 used for system name in call back option.                       ]
  120. \AF%S:%VS.bsc["\"\  "\svA used to set option for call back block.                           ]
  121. \AF%S:%VS.bsc["\"\  "\svB used for setting number of mail packets to keep.                  ]
  122. \AF%S:%VS.bsc["\"\  "\svC used for setting file scan option <U>pload <A>ll etc.             ]
  123. \AF%S:%VS.bsc["\"\  "\svD used internally to read variable        ]
  124. \AF%S:%VS.bsc["\"\  "\svE used internally for selection option                              ]
  125. \AF%S:%VS.bsc["\"\  "\svF used for setting cursor position in mail door.                   ]
  126. \AF%S:%VS.bsc["\"\  "\svG used for setting the maximum number of messages in mail door.     ]
  127. \AF%S:%VS.bsc["\"\  "\svD used ALSO for closing file download block.
  128. \AF%S:%VS.bsc["\"\  "\svF used ALSO for closing file scan block.
  129. \AF%S:%VS.bsc["\"\  "\svG used ALSO for closing file MailDL block.
  130. \AF%S:%VS.bsc["\"\  "\svM used for closing Mail block.
  131. \AF%S:%VS.bsc["\"\  "\svQ used for closing Quest block.
  132. \AF%S:%VS.bsc["\"\  "\svS used for closing MailUL block.
  133. \AF%S:%VS.bsc["\"\  "\svU used for closing UL File block.
  134. \AF%S:%VS.bsc["\"\  Need to have in boyan macro #7 \AT+[\qd"]                              ]
  135. \AF%S:%VS.bsc["\"\  as last command.                                                       ]
  136. \AF%S:%VS.bsc["\"\Script assumes that you put your message replies in upload dir.           ]
  137.  \AF%S:%VS.bsc["\"\Script assumes that you put your messages packets in DN dir.             ]
  138. \AF%S:%VS.bsc["\"\Script assumes that you use Zmodem configured as Z.                      ]
  139. \AF%S:%VS.bsc[                                                                           ]
  140. \AF%S:%VS.bsc[|LOGON                                    "\"\ Start script blocks    ]
  141. \AF%S:%VS.bsc["\ST"[ Ø Press <TAB> for Menu options Æ"]
  142. \AF%S:%VS.bsc["\IE+OFF,"%LD["\LD+"]                         "\"\ Turn on Log to disk file  ]
  143. \AF%S:%VS.bsc["\SVN["]"\SVF["]"\SVG["]"\SVM["]\SVQ["]\SVS["]"\SVU["]"\SVX["]               ]
  144. \AF%S:%VS.bsc["\SVY["%SC"] ]
  145.  
  146. \\
  147. \dm12,10[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  148. \dm12,11[ ∫                                       ∫ ]
  149. \dm12,12[ ∫          Enter Mail Door #            ∫ ]
  150. \dm12,13[ ∫                                       ∫ ]
  151. \dm12,14[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  152. \\{
  153. \KV2`1_[Enter Mail door number> ]
  154. \\dm14,11[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  155. \\dm14,12[ ∫                                       ∫ ]
  156. \\dm14,13[ ∫          Enter Mail Door #            ∫ ]
  157. \\dm14,14[ ∫                                       ∫ ]
  158. \\dm14,15[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  159. \\{
  160. \\KV3[Enter ProDoor number> ] \AF%S:%VS.bsc["\SV3[%v3"]            "\"\enter prodoor number   ]
  161. \dm16,12[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  162. \dm16,13[ ∫                                       ∫ ]
  163. \dm16,14[ ∫     Enter mail packet name            ∫ ]
  164. \dm16,15[ ∫  EdsHome.qwk   with extension         ∫ ]
  165. \dm16,16[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  166. {
  167. \Kv4%VS.qwk[Enter Mail packet> ]
  168. \dm18,13[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  169. \dm18,14[ ∫                                       ∫ ]
  170. \dm18,15[ ∫      Enter Reply name  ie:            ∫ ]
  171. \dm18,16[ ∫   EdsHome.rep   with entension        ∫ ]
  172. \dm18,17[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  173. {
  174. \Kv1%VS.rep[Enter Mail packet> ]
  175. \bl[append]
  176.  
  177. \zs
  178. \dm8,1[                                                                     ]
  179. \dm8,2[  …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  180. \dm8,3[  ∫                                                                ∫ ]
  181. \dm8,4[  ∫       Which Mail Door do you use for getting the mail?         ∫ ]
  182. \dm8,5[  ∫                                                                ∫ ]
  183. \dm8,6[  ∫                   [1"]  MarkMail  Door                          ∫ ]
  184. \dm8,7[  ∫                                                                ∫ ]
  185. \dm8,8[  ∫                   [2"]  Qmail Door                              ∫ ]
  186. \dm8,9[  ∫                                                                ∫ ]
  187. \dm8,10[  ∫                   [3"]  Kmail Door                              ∫ ]
  188. \dm8,11[  ∫                                                                ∫ ]
  189. \dm8,12[  ∫                   [4"]  Megamail Door                           ∫ ]
  190. \dm8,13[  ∫                                                                ∫ ]
  191. \dm8,14[  ∫                   [5"]  TomCat  Door                            ∫ ]
  192. \dm8,15[  ∫                                                                ∫ ]
  193. \dm8,16[  ∫                   [6"]  RoseMail Door                           ∫ ]
  194. \dm8,17[  ∫                                                                ∫ ]
  195. \dm8,18[  ∫                   [7"]  OffLine Mail                            ∫ ]
  196. \dm8,19[  ∫                                                                ∫ ]
  197. \dm8,20[  ∫                                                                ∫ ]
  198. \dm8,21[  »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  199. \dm8,22[                                                                     ]
  200. {
  201. \KV0`1[Enter door number here> ]
  202.  
  203. \IV0+1[\SVm[MM]\svV[4]\svw[35]]
  204. \IV0+2[\SVm[QM]\svV[4]\svw[35]]
  205. \IV0+3[\SVm[KM]\svv[12]\svw[31]]
  206. \IV0+4[\SVm[MR]\svV[4]\svw[35]]
  207. \IV0+5[\SVm[TM]\svV[4]\svw[35]]
  208. \IV0+6[\SVm[RM]\svV[4]\svw[35]]
  209. \IV0+7[\SVm[OM]\svV[4]\svw[35]]
  210. \AF%S:%VS.bsc["\SVF[%vw"]            "\"\ Cursor position
  211. \AF%S:%VS.bsc["\SVG[800"]           "\"\ Maximum message counter for mail
  212. \AF%S:%VS.bsc["\SVH[%VV"]            "\"\ Timer to wait for NO messages 2-15 sec
  213. \AF%S:%VS.bsc["\SVI["%SS"]            "\"\ Sets script running to system  name
  214. \dm18,13[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  215. \dm18,14[ ∫ Do you want to extract the Newfile.dat∫ ]
  216. \dm18,15[ ∫ file from the QWk packet and add the  ∫ ]
  217. \dm18,16[ ∫ list to a file called Newfiles.lst    ∫ ]
  218. \dm18,17[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  219. {
  220. \Kv1N[Enter N/y > `]
  221. \iv1+n[\sv1[%V1]]
  222. \iv1+y[\sv1[X]]
  223. \AF%S:%VS.bsc["\SVX[%V1"]               "\"\ Sets option to extract Newfiles.dat from QWK packet]
  224. \AF%S:%VS.bsc["\GB[Menu"]
  225. \AF%S:%VS.bsc[]
  226. \AF%S:%VS.bsc["|Menu]
  227. \bl[append1]
  228. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;NAME"]"]                    "\"\ Enter name block        ]
  229. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  230. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;QUEST"]"]                   "\"\ Question block        ]
  231. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  232.  
  233. \eb
  234.  
  235.  
  236. \zs
  237. \dm20,14[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  238. \dm20,15[ ∫                                       ∫ ]
  239. \dm20,16[ ∫         Do you use ProDoor?           ∫ ]
  240. \dm20,17[ ∫                                       ∫ ]
  241. \dm20,18[ ∫        [Y"] Yes                        ∫ ]
  242. \dm20,19[ ∫        [N"] No                         ∫ ]
  243. \dm20,20[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº
  244. {
  245. \KV0[Y/N> ]
  246. \IV0+Y[\bl[append3]\EB     \\ If "Y" invoke block edit
  247. \IV0+N[\eb]               \\ If "N" go to "Files" block
  248. \eb
  249.  
  250. |editit
  251. \ZS
  252. \dm6,7[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  253. \dm6,8[ ∫        Do you wish to edit the        ∫ ]
  254. \dm6,9[ ∫      %Vt before exiting      ∫ ]
  255. \dm6,10[ ∫     [Y"]es  [N"]o  [M"]ore               ∫ ]
  256. \dm6,11[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  257. {
  258. \Kv0`Y[     Y/n> ]
  259. \IV0+Y[\GB[edit]]                   \\ If "Y" invoke block edit
  260. \IV0+N[\GB[end]                   \\ If "D" go to "end" block
  261. \IV0+M[\GB[More]                 \\ If "D" go to "end" block
  262. \eb
  263.  
  264. |bsc
  265. \zs
  266. \dm6,1[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  267. \dm6,2[ ∫     File %Vt already exist   ∫ ]
  268. \dm6,3[ ∫     cannot re create it. Must         ∫ ]
  269. \dm6,4[ ∫     delete it or use editor           ∫ ]
  270. \dm6,5[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  271. {
  272. \dm6,7[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  273. \dm6,8[ ∫      Do you wish to edit file         ∫ ]
  274. \dm6,9[ ∫    [Y"] Yes to edit script %Vt∫ ]
  275. \dm6,10[ ∫    [A"] Abort script                   ∫ ]
  276. \dm6,11[ ∫    [D"] to Delete file and continue    ∫ ]
  277. \dm6,12[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  278. {
  279. \KV0`D[   Y,A or D > ]
  280. \IV0+Y[\zs\bl[edit]]                \\ If "Y" invoke block edit
  281. \IV0+D[\zs\bl[delete]]               \\ If "D" go to "Files" block
  282. \IV0+A[\zs\bl[end]]                \\ If "A" go to "Shell" block
  283. \\bl[make]
  284. \\bl[append4]
  285. \\bl[editit]
  286. \eb
  287.  
  288. |edit
  289. \dc-[%WC %S:%VS.bsc]
  290. \bl[end]\eb
  291. \ab
  292.  
  293. |delete
  294. \dc-[del %S:%VS.bsc]
  295. \eb
  296.  
  297. |append1
  298. \AF%S:%VS.bsc["\DM[CONNECTED TO "%SN"]                     "\"\ System display message    ]
  299. \AF%S:%VS.bsc["\to[40"]"\pl                                "\"\ Set timer                 ]
  300. \AF%S:%VS.bsc["\"\CA-["\eb"]                                "\"\ Check carrier currently off]
  301.  
  302.  
  303. |append
  304. \AF%S:%VS.bsc["\SV0["%SN"]           "\"\ set existing system number to "%v0                    ]
  305. \AF%S:%VS.bsc["\sv1[%v1"]    "\"\ Report packet name]
  306. \AF%S:%VS.bsc["\SV2[%v2"]            "\"\ enter door number [#"]      ]
  307. \AF%S:%VS.bsc["\sv4[%v4"]    "\"\ Mail Packet name]
  308. \AF%S:%VS.bsc["\SV5[            "]  "\"\ Name of file to UpLoad]
  309. \AF%S:%VS.bsc["\SV6[                                        "]"\"\ file description]
  310. \AF%S:%VS.bsc["\SV7[                                        "]"\"\ file description]
  311. \AF%S:%VS.bsc["\SV8[                                        "]"\"\ file description]
  312. \AF%S:%VS.bsc["\SV9[          "]    "\"\ enter file name to download]
  313.  
  314. \zs
  315.  
  316. \dm12,10[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  317. \dm12,11[ ∫ How many mail packets do you wish to  ∫ ]
  318. \dm12,12[ ∫  save on your disk for this system    ∫ ]
  319. \dm12,13[ ∫        Enter  1- 9                    ∫ ]
  320. \dm12,14[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  321. {
  322. \KV0`1[Enter number of packets> ]\AF%S:%VS.bsc["\SVB[%V0"]             "\"\ enter number of qwk's to keep
  323.  
  324. \dm14,11[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  325. \dm14,12[ ∫ Do you want to scan All directories   ∫ ]
  326. \dm14,13[ ∫  for new files or just the Upload     ∫ ]
  327. \dm14,14[ ∫ Enter <U>pload <A>ll or <N>one        ∫ ]
  328. \dm14,15[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  329. {
  330. \KV0U[Enter U, A, or N > ] \AF%S:%VS.bsc["\SVC[%v0"]             "\"\ scanning directories for files A all or U uploads]
  331. \SVC[%V0]
  332.  
  333. |append4
  334. \IE-OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;mail"]"]                    "\"\  Mail block ] ]
  335. \IE+OM,%VM[\AF%S:%VS.bsc["\CA+"["\SC"[SCRIPT;Omail"]"]                   "\"\  Mail block ] ]
  336. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  337. \AF%S:%VS.bsc["\CA+["\FE+"%u:"%V1["\SC[SCRIPT;%VMul"]"]"]        "\"\ Upload block]
  338. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  339. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;%VMdl"]                     "\"\ Mail download ]
  340. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors ]
  341. \AF%S:%VS.bsc["\CA+["\FE+"%S:"%VI.dow["\SC[SCRIPT;dowlst"]"]"]        ]
  342. \AF%S:%VS.bsc["\ie+"%VA,X["\gs[script;calback"]"\eb"]         "\"\ Checking for errors          ]
  343. \AF%S:%VS.bsc["\CA+["\SC[SCRIPT;FILES"]"]                   "\"\ Scan for new files block]
  344. \AF%S:%VS.bsc["\CA+["\ie+"%VX,X["\SC[script;extfile"]"]"]    "\"\ Extract newfiles.dat from qwk packet ]
  345. \AF%S:%VS.bsc[                                                                           ]
  346. \AF%S:%VS.bsc["\"\CA+["\FE+"%U:"%V5["\SC[SCRIPT;upload"]"]"]     "\"\when doing upload or download remove]
  347. \AF%S:%VS.bsc["\"\CA+["\FE-"%D:"%V9["\SC[SCRIPT;download"]"]"]   "\"\slash from beginning of line]
  348. \AF%S:%VS.bsc[                                                                           ]
  349. \AF%S:%VS.bsc["\CA-["\AB"]"\CA+["\gs[SCRIPT;Logoff"]"]         "\"\ Log off block ]
  350. \AF%S:%VS.bsc["\ab]
  351. \AF%S:%VS.bsc[]
  352. \AF%S:%VS.bsc["|*TAB             "\"\ This runs automatically when <Tab> pressed       ]
  353. \AF%S:%VS.bsc["\SV0[1"] "\KS                                                           ]
  354. \AF%S:%VS.bsc["\DM38,"%V0[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª "]"\+V0"[1"]]
  355. \AF%S:%VS.bsc["\DM38,"%V0[  ∫ OnLine MENU    "%HR:"%MI  "%Mo/"%DA/"%YR        ∫ "]"\+V0[1"]]
  356. \AF%S:%VS.bsc["\DM38,"%V0"[ ÃÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕπ "]  "\+V0"[1"]]
  357. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <C> = find main Command               ∫ "]  "\+V0"[1"]]
  358. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <D> = Download a file                 ∫ "]  "\+V0"[1"]]
  359. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <DM>= Download Mail (from mail door)  ∫ "]  "\+V0"[1"]]
  360. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <E> = Edit Script                     ∫ "]  "\+V0"[1"]]
  361. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <F> = File Manager                    ∫ "]  "\+V0"[1"]]
  362. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <G> = Goodbye                         ∫ "]  "\+V0"[1"]]
  363. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <J> = Jump to DOS                     ∫ "]  "\+V0"[1"]]
  364. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <L> = Log to disk ...status "%LD       ∫ "]  "\+V0"[1"]]
  365. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <M> = Mail (check for your mail)      ∫ "]  "\+V0"[1"]]
  366. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <N> = New File Scan                   ∫ "]  "\+V0"[1"]]
  367. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <O> = Open Door                       ∫ "]  "\+V0"[1"]]
  368. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <P> = edit Phone directory            ∫ "]  "\+V0"[1"]]
  369. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <Q> = Quick Note file                 ∫ "]  "\+V0"[1"]]
  370. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <S> = Scroll-back buffer              ∫ "]  "\+V0"[1"]]
  371. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <T> = Termanial Mode                  ∫ "]  "\+V0"[1"]]
  372. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <U> = Upload a file                   ∫ "]  "\+V0"[1"]]
  373. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <UM>= Upload Mail (from mail door)    ∫ "]  "\+V0"[1"]]
  374. \AF%S:%VS.bsc["\DM38,"%V0"[ «ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ∂ "]  "\+V0"[1"]]
  375. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫ <R> = RESUME Script  <?> Manual Macro ∫ "]  "\+V0"[1"]]
  376. \AF%S:%VS.bsc["\DM38,"%V0"[ ∫<Esc>= ABORT script   <V>iew Settings  ∫ "]  "\+V0"[1"]]
  377. \AF%S:%VS.bsc["\DM38,"%V0"[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº "]]
  378. \AF%S:%VS.bsc["\KO"[30"]  "\BB+  "\KV0__"[Enter OPTION: "]  "\BB-  "\RS ]
  379. \AF%S:%VS.bsc["\IV0+C"["\SVQ["]"\SC[SCRIPT;quest"]"\gb"[termlines"]"]  ]
  380. \AF%S:%VS.bsc["\IV0+DM"["\SVG["]"\SC[SCRIPT;%VMdl"]"]                  ]
  381. \AF%S:%VS.bsc["\IV0+D"["\SVD["]"\SC[SCRIPT;Download"]"]                ]
  382. \AF%S:%VS.bsc["\IV0+E"["\DC-"["%WC "%S:"%VY"]"\gb"[*tab"]"]            ]
  383. \AF%S:%VS.bsc["\IV0+F"["\FM"["]"\gb"[*tab"]"]                          ]
  384. \AF%S:%VS.bsc["\IV0+G"["\SC[SCRIPT;logoff"]"\AB"]                      ]
  385. \AF%S:%VS.bsc["\IV0+J"["\JD"\gb"[*tab"]"]                              ]
  386. \AF%S:%VS.bsc["\IV0+L"["\LD*"\gb"[*tab"]"]                             ]
  387. \AF%S:%VS.bsc["\IV0+M"[R Y"{"\GB"[termlines"]"]                        ]
  388. \AF%S:%VS.bsc["\IV0+?"["\KV9"[MACRO:"] @V9  "\LV9"["]  "\IE+"%LV,1"["\SV9"["%V9"]"]"\gb"[*tab"]"] ]
  389. \AF%S:%VS.bsc["\IV0+N"["\SVF["]N S %VC N"{"\GB"[termlines"]"]          ]
  390. \AF%S:%VS.bsc["\IV0+O"["\SVM["]op "%V2 "{"\GB"[termlines"]"]           ]
  391. \AF%S:%VS.bsc["\IV0+P"[ "\DI"["] "\GB"[*Tab"] "]                       ]
  392. \AF%S:%VS.bsc["\IV0+Q"["\DC-["%WC "%B:notes.txt"]"]                    ]
  393. \AF%S:%VS.bsc["\IV0+R"["\gs["%Vy;menu"]"]                              ]
  394. \AF%S:%VS.bsc["\IV0+S"["\RB"\gb"[*Tab"]"]                              ]
  395. \AF%S:%VS.bsc["\IV0+T"["\gb"[termlines"]"\gb"[*tab"]"]                 ]
  396. \AF%S:%VS.bsc["\IV0+UM"["\SVS["]"\SC[SCRIPT;%VMul"]"\gb"[*tab"]"]      ]
  397. \AF%S:%VS.bsc["\IV0+U"["\SVU["]"\SC[SCRIPT;upload"]"\gb"[*tab"]"]      ]
  398. \AF%S:%VS.bsc["\IV0+V"["\SVU["]"\SC[SCRIPT;settings"]"\gb"[*tab"]"]    ]
  399. \AF%S:%VS.bsc["\GB"[*TAB"]                                             ]
  400. \AF%S:%VS.bsc[                                                         ]
  401. \AF%S:%VS.bsc[|TermLines                                               ]
  402. \AF%S:%VS.bsc["\to"[120"]                                              ]
  403. \AF%S:%VS.bsc["\ST"[ Ø Press <TAB> for Menu options Æ"]                ]
  404. \AF%S:%VS.bsc["\RE"["\CA-"["\ab"] "\IK+"["%IK"]"]                      ]
  405. \AF%S:%VS.bsc[                                                         ]
  406. \AF%S:%VS.bsc["|"*WrapUp                                               ]
  407. \AF%S:%VS.bsc["\DM23,1"[Press <ESC> TWICE or Run Macro "#7"]"\PA"[2"]  ]
  408. \AF%S:%VS.bsc["\MA"[7"]                                                ]
  409. \AF%S:%VS.bsc[                                                         ]
  410.  
  411. |end
  412. \zs
  413. \bl[time]
  414. \bl[timeEdit]
  415. \svp[%V0:%Mi]\lvp[5]
  416. \svo[%Mo"/%Da]\lvo[5]
  417. \svy[%VP %v1]\lvy[10]
  418. \dm20,14[ …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ]
  419. \dm20,15[ ∫       %Vt Script         ∫ ]
  420. \dm20,16[ ∫                                   ∫ ]
  421. \dm20,17[ ∫      Completed  at %Vy     ∫ ]
  422. \dm20,18[ ∫        on %Vo                   ∫ ]
  423. \dm20,19[ ∫                                   ∫ ]
  424. \dm20,20[ »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ]
  425. \svb[]\ko[]
  426. \\zs
  427. \eb
  428.  
  429. |Time                             \\ 12 hr clock
  430. \SV0[%Hr]\eb
  431.  
  432. |timeEdit
  433. \IE+%V0,0 `[\bl[AM]\eb]
  434. \IE+%V0,10[\bl[AM1]\eb]
  435. \IE+%V0,11[\bl[AM1]\eb]
  436. \IE+%V0,12[\bl[PM1]\eb]
  437. \IE+%V0,13[\+V0[-12]\bl[PM]\eb]
  438. \IE+%V0,14[\+V0[-12]\bl[PM]\eb]
  439. \IE+%V0,15[\+V0[-12]\bl[PM]\eb]
  440. \IE+%V0,16[\+V0[-12]\bl[PM]\eb]
  441. \IE+%V0,17[\+V0[-12]\bl[PM]\eb]
  442. \IE+%V0,18[\+V0[-12]\bl[PM]\eb]
  443. \IE+%V0,19[\+V0[-12]\bl[PM]\eb]
  444. \IE+%V0,20[\+V0[-12]\bl[PM]\eb]
  445. \IE+%V0,21[\+V0[-12]\bl[PM]\eb]
  446. \IE+%V0,22[\+V0[-12]\bl[PM1]\eb]
  447. \IE+%V0,23[\+V0[-12]\bl[PM1]\eb]
  448. \IE-%V0,abc[\bl[AM]\eb]
  449. \eb
  450.  
  451. |AM
  452. \SV1[AM`]\eb
  453. \eb
  454.  
  455. |AM1
  456. \SV1[AM]\eb
  457. \eb
  458.  
  459. |PM
  460. \SV1[PM `]\eb
  461. \eb
  462.  
  463. |PM1
  464. \SV1[PM`]\eb
  465. \eb                                           \\ timer blocks
  466.